function[datosnorm,etiquetas,datossim,long]=datos_red333(res)
long=length(res);
datosnorm=ones(4,5*long);
datossim=datosnorm;
datos=ones(4,10*long);
for r=1:long
    datos(1,((1+(r*10 -10)):(r*10)))=res{r}(6,:);
    datos(2,((1+(r*10 -10)):(r*10)))=res{r}(7,:);
    datos(3,((1+(r*10 -10)):(r*10)))=res{r}(9,:);
    datos(4,((1+(r*10 -10)):(r*10)))=res{r}(11,:);
end
[y,ps]=mapminmax(datos);

for r=0:10:(length(datos)-10)
    datosnorm(:,(1+((r/10)*5)):(5+((r/10)*5)))=y(:,(1+(r)):(r+5));
    datossim(:,(1+((r/10)*5)):(5+((r/10)*5)))=y(:,(6+(r)):(r+10));
end
etiquetas=zeros(long,long*5);
for r=1:long
    etiquetas(r,(1+(r*5-5):(r*5)))=1;
end
